home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / c / dice-3.16.lha / rexx / ErrorMove.DME < prev   
Text File  |  1995-12-24  |  1KB  |  61 lines
  1. /*
  2. **    $Id: ErrorMove.DME,v 30.0 1994/06/10 18:06:11 dice Exp $
  3. **
  4. **    DICE Error Parsing system.  Script for DME.
  5. **
  6. **  Notes: This assumes that your DCC:Config/DCC.Config file contains the
  7. **       following line:
  8. **
  9. **  cmd= rx DCC:Rexx/DME_ErrorParse.rexx %e "%c" "%f" "%0"
  10. */
  11.  
  12. PARSE UPPER ARG COMMAND  /* Valid commands: Current First Next Prev */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF ~show('p','DICE_ERROR_PARSER') THEN
  17.    DO
  18.       title "( Error Parsing Not Active )"
  19.       EXIT 0
  20.    END
  21.  
  22. IF E == "Title" THEN
  23.    DO
  24.       title E.STRING
  25.       EXIT 0
  26.    END
  27.  
  28. ADDRESS DICE_ERROR_PARSER COMMAND E
  29.  
  30. IF rc ~= 0 THEN
  31.    DO
  32.       title "( No More Errors )"
  33.       EXIT 0
  34.    END
  35.  
  36.  
  37. IF E.LINE = 0 THEN
  38.    DO
  39.    IF LEFT(E.TEXT, 5) = 'DLINK' THEN
  40.       DO
  41.      TT = TRANSLATE(E.STRING, '-', '"')
  42.      /* This is a DLINK error, we need to handle it special */
  43.      title "( DLINK ERROR: " TT ")"
  44.      EXIT 0
  45.       END
  46.    END
  47.  
  48. /*SAY "E.LINE=" E.LINE "E.TEXT=" E.TEXT "E.FPATH=" E.FPATH "E.ARGS=" E.ARGS*/
  49.  
  50. IF RC ~= 0 THEN
  51.    DO
  52.       title "( Unable to open" E.FPATH ")"
  53.       EXIT 0
  54.    END
  55.  
  56. window "("E.FPATH")"
  57. goto E.Line
  58. col E.Col
  59. title "(" E.STRING ")"
  60.  
  61.